home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1353.dms / var1353.adf / TEXTPLUS / TPP501.lha / TPP / Rexx / DVIPrintLog.tpl < prev    next >
Text File  |  1994-01-06  |  692b  |  41 lines
  1. /* DVIPrint Logfile - Macro */
  2. /* Kick 2.0 only */
  3.  
  4. options results
  5.  
  6. binary='C:Type'
  7. hailstring='DVIPrint Logfile'
  8.  
  9. address 'TextPlus'
  10.  
  11. /* get screen name */
  12. 'GetScreenName'
  13. pub_name = result
  14.  
  15. /* left edge */
  16. 'GetWindowLeftEdge'
  17. le = result
  18. /* top edge */
  19. 'GetWindowTopEdge'
  20. te = result
  21. /* width */
  22. 'GetWindowWidth'
  23. wi = result
  24. /* height */
  25. 'GetWindowHeight'
  26. he = result
  27.  
  28. output = '>"CON:'||le||'/'||te||'/'||wi||'/'||he||'/'||hailstring||'/AUTO/WAIT/ALT/INACTIVE/SCREEN'||pub_name||'"'
  29.  
  30. fullname = 'T:DVIPrint.log'
  31.  
  32. 'RequestString' hailstring'\\'fullname
  33.  
  34. /* okay? */
  35. if result ~= "" then do
  36.    address command binary output fullname
  37.    end
  38. else
  39.    'Display' 'DVIPrint Logfile --- Aborted'
  40.  
  41.